home *** CD-ROM | disk | FTP | other *** search
- //---------------------------------------------------------------------------
- #include <vcl\vcl.h>
- #pragma hdrstop
-
- #include "charstr.h"
- //---------------------------------------------------------------------------
- #pragma resource "*.dfm"
- TForm1 *Form1;
- char CKette[40];
- String SKette;
- char *ZKette;
-
- //---------------------------------------------------------------------------
- __fastcall TForm1::TForm1(TComponent* Owner)
- : TForm(Owner)
- {
- }
- //---------------------------------------------------------------------------
- void __fastcall TForm1::Button1Click(TObject *Sender)
- {
- SKette = "Hallo! Das ist ein String";
- Label1->Caption = SKette;
- }
- //---------------------------------------------------------------------------
- void __fastcall TForm1::Button2Click(TObject *Sender)
- {
- strcpy (CKette,"Hallo! Das ist ein char-Feld");
- Label2->Caption = CKette;
- }
- //---------------------------------------------------------------------------
- void __fastcall TForm1::Button3Click(TObject *Sender)
- {
- ZKette = "Hallo! Das ist eine char-Kette";
- Label3->Caption = ZKette;
- }
- //---------------------------------------------------------------------------
-